home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 05 (1983-01)(Softdisk)(Side A).zip / Softdisk Magazette Volume 2, No. 05 (1983-01)(Softdisk)(Side A).do / INCREDIBLE SHRINKING MAN.bas < prev    next >
BASIC Source File  |  1996-12-24  |  2KB  |  22 lines
  1. 10  HIMEM: 32576
  2. 20 D$ =  CHR$(4)
  3. 25  PRINT D$;"NOMON I,C,O"
  4. 30  PRINT D$;"BLOAD PICDRAW"
  5. 40  TEXT : HOME : HGR 
  6. 50 L = 32576: POKE 36352,L - INT(L/256) *256: POKE 36353, INT(L/256): PRINT D$;"BLOAD TITLE.SPC,A32576": CALL 36400
  7. 59  FOR K = 1 TO 5000: NEXT : TEXT : HOME 
  8. 60  VTAB 3: PRINT "!THE INCREDIBLE SHRINKING MAN ADVENTURE!"
  9. 61 F$ = "+--------------------------------------+":G$ = "!                                      !"
  10. 62  VTAB 1: PRINT F$: VTAB 2: PRINT G$: VTAB 4: PRINT G$: VTAB 5: PRINT F$
  11. 70  VTAB 9: HTAB 6: INVERSE : PRINT " BY KENNETH AND ANTHONY CHIANG ": VTAB 8: HTAB 6: PRINT "                               ": VTAB 10: HTAB 6: PRINT "                               ": NORMAL 
  12. 80  VTAB 13: PRINT "GRAPHICS CREATED BY": VTAB 15: PRINT "                  THE GRAPHICS MAGICIAN"
  13. 90  VTAB 20: PRINT " COPYRIGHT 1982:  ALL RIGHTS RESERVED"
  14. 100  VTAB 23: HTAB 7: PRINT "PRESS ANY KEY TO CONTINUE";: POKE  -16368,0: GET B$: POKE 34,5
  15. 110  PRINT : PRINT : PRINT "     YOU ARE A HIGH-SCHOOL STUDENT      WORKING ON YOUR SCIENCE FAIR PROJECT.   BY BEING AN HONOR STUDENT IN CHEMISTRY, YOU WERE ABLE TO DEVELOP A FORMULA FOR  SHRINKING HUMAN BEINGS AND THEN DECIDED"
  16. 120  PRINT "TO TEST IT ON YOURSELF.  BUT YOU MISCAL-CULATED THE DOSAGE AND HAVE NOW BEGUN   TO DIMINISH MORE RAPIDLY THAN ANTICIPAT-ED.  YOU MUST NOW FIND THE ANTIDOTE     BEFORE THE SCIENCE FAIR STARTS."
  17. 130  PRINT : PRINT "     USE THE STANDARD VERB/NOUN COMMANDSAND ABBREVIATE DIRECTIONAL COMMANDS WITHN,S,E,W,U AND D.  TO GET AN INVENTORY   OF WHAT YOU'RE CARRYING TYPE I OR INV."
  18. 140  PRINT : PRINT : PRINT "PRESS ANY KEY TO BEGIN";: GET B$: PRINT 
  19. 1000  POKE 103,1
  20. 1010  POKE 104,64
  21. 1020  POKE 16384,0
  22. 2000  PRINT D$;"RUN HMA"